message when finished compiling

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index e279713523a4fcb3b5996c0f5ed7304cc5f0d2d9..859e0dedd9c80fea92af37ccd3cd5f5b90312fb6 100644 (file)
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -1797,7 +1797,8 @@ Prepare every function for final compilation and drive the C back-end."
                                       "--eval"
                                       (prin1-to-string code))))
              (while (accept-process-output prc)
-               (thread-yield)))))))
+               (thread-yield)))))
+       (message "Finished compiling.")))
    "compilation thread"))
 \f
 ;;; Compiler entry points.